10 IFPEEK(55)+256*PEEK(56)<>32767THENPOKE55,255:POKE56,127:CLR:POKE157,0
20 IFX=0THENPOKE53265,11:PRINT"[144][147]":POKE53280,0:POKE53281,0
30 IFX=0THENX=1:LOAD"UP-TIME LOGO",8,1
40 IFX=1THENPOKE56576,148:POKE53272,223:PRINT"[154][147]":GOTO110
50 IFX=1THENX=2:LOAD"KARATE CHARS",8,1
60 IFX=2THENX=3:LOAD"KARATE GUYS",8,1
90 PRINT"[144]LOAD"CHR$(34)"KARATE"CHR$(34)",8":PRINT"RUN:"
95 POKE198,3:POKE631,19:POKE632,13:POKE 633,13
100 NEW
110 C$="[154][159][159][153][153][153][153][159][159][154]":POKE53281,6:POKE53280,6:POKE53265,27
120 LD=LD+1:CN=CN+1:IFCN>LEN(C$)THENCN=1
130 PRINTMID$(C$,CN,1)"[147]":GETX$:IFX$<>""THEN160
140 IFLD=101THEN160
150 GOTO120
160 POKE53265,11:POKE53281,0:POKE53280,0:PRINT"[144][147]"TAB(13)"[158]              "
170 PRINT"[153]                [156]                   "
180 PRINT"[159]                [156]                   "
190 PRINT"[154]                                   "
200 PRINT"                [154]                   "
210 PRINT"[156]                [159]                   "
220 PRINT"[156]                [153]                   "
230 PRINTTAB(14)"[158]             ":POKE53265,27:GOTO50